home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1995 June / MacFormat 25.iso / Shareware City / Developers / fortran-to-c-translator-11 / Mac F2C 1.1 / Mac F2C Libraries / libF77 Sources / getpid.c < prev    next >
Text File  |  1995-01-28  |  886b  |  72 lines
  1. /*
  2.     Define the getpid() functions on the Macintosh.
  3.     Cannot use <unix.h> because it introduces name space conflicts.
  4.     
  5.     IMT 4 Jan 93
  6.     
  7.     Modified to work with both MetroWerks & Think C by
  8.     IMT 29 Nov 94 based on info provided by Dirk Froehling 
  9. */
  10.  
  11.  
  12. #if defined(THINK_C) || defined(__MWERKS__)
  13.  
  14. #if defined(THINK_C)
  15. extern int     __pid;
  16. extern int     __ppid;
  17. extern int    __uid;
  18. extern int     __gid;
  19.  
  20. #undef getpid
  21. #undef getpgrp
  22. #undef getppid
  23. #undef getuid
  24. #undef geteuid
  25. #undef getgid
  26. #undef getegid
  27. #endif
  28.  
  29. #ifdef __MWERKS__
  30. int     __pid  = 57;
  31. int        __ppid = 18;
  32. int     __uid  = 24; 
  33. int        __gid  = 31;
  34. #endif
  35.  
  36.  
  37. int getpid( void )
  38. {
  39.     return __pid;
  40. }
  41.  
  42. int getpgrp( void )
  43. {
  44.     return __pid;
  45. }
  46.  
  47. int getppid( void )
  48. {
  49.     return __ppid;
  50. }
  51.  
  52. int getuid( void )
  53. {
  54.     return __uid;
  55. }
  56.  
  57. int geteuid( void )
  58. {
  59.     return __uid;
  60. }
  61.  
  62. int getgid( void )
  63. {
  64.     return __gid;
  65. }
  66.  
  67. int getegid( void )
  68. {
  69.     return __gid;
  70. }
  71.  
  72. #endif